home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u6.d64 / willie's inst.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  159 lines
  1. 1000 REM *----------------------------*
  2. 1010 REM *   WW (WILLIES WEDGE)       *
  3. 1020 REM *   INSTRUCTIONS             *
  4. 1030 REM *   BY BUD RASMUSSEN         *
  5. 1040 REM *----------------------------*
  6. 1050 POKE53280,5:POKE53281,5:POKE646,7
  7. 1060 PS=0
  8. 1070 PRINT"[147]"
  9. 1080 PRINT" *------------------------------------*"
  10. 1090 PRINT" * 'WW' ( WILLIE'S WEDGE )            *"
  11. 1100 PRINT" *------------------------------------*"
  12. 1110 PRINT" FOLLOWING THIS FOREWORD YOU WILL"
  13. 1120 PRINT" FIND A LIST OF SHORTHAND DOS"
  14. 1130 PRINT" COMMANDS THAT ARE POSSIBLE IF YOU"
  15. 1140 PRINT" LOAD AND RUN 'WW'.
  16. 1150 [153]
  17. 1160 [153]" 'WW' IS A VERSION OF 'C-64 WEDGE'"
  18. 1170 [153]" AND 'DOS 5.1' MERGED INTO ONE PROGRAM"
  19. 1180 [153]" BY WILLIE BROWN, WHICH MAKES IT"
  20. 1190 [153]" POSSIBLE TO LOAD/RUN/SAVE IT, AS IF"
  21. 1200 [153]" IT WERE A BASIC PROGRAM."
  22. 1210 [153]
  23. 1220 [153]" YOU WILL FIND A COPY OF 'WW'
  24. 1230 PRINT" ON THIS DISK.
  25. 1240 [153]" *------------------------------------*"
  26. 1250 :
  27. 1260 [153]
  28. 1270 [139] PS[178]1 [137]1310
  29. 1280 [153]" * PRESS ANY KEY TO CONTINUE."
  30. 1290 A$[178]"":[161] A$:[139] A$ [178] "" [137] 1290
  31. 1300 [153]"LOAD"
  32. 1310 [153]" *------------------------------------*"
  33. 1320 [153]"  FILE                 COMMAND"
  34. 1330 [153]"  COMMAND              RESULT "
  35. 1340 [153]" *------------------   ---------------*"
  36. 1350 [153]
  37. 1360 [153]"  @C:NEWFILE=OLDFILE   COPY A FILE ON"
  38. 1370 [153]"                       THE SAME DISK"
  39. 1380 [153]
  40. 1390 [153]"  @R:NEWNAME=OLDNAME   RENAME A FILE"
  41. 1400 [153]
  42. 1410 [153]"  @S:FILENAME          SCRATCH A FILE"
  43. 1420 [153]
  44. 1430 [153]" *------------------------------------*"
  45. 1440 :
  46. 1450 [153]
  47. 1460 [139] PS[178]1 [137] 1500
  48. 1470 [153]" * PRESS ANY KEY TO CONTINUE."
  49. 1480 A$ [178] "": [161] A$: [139] A$ [178] "" [137] 1480
  50. 1490 [153]"LOAD"
  51. 1500 [153]" *------------------------------------*"
  52. 1510 [153]"  DISK                 COMMAND"
  53. 1520 [153]"  COMMAND              RESULT "
  54. 1530 [153]" *------------------   ---------------*"
  55. 1540 [153]
  56. 1550 [153]"  @                    DISPLAY DISK"
  57. 1560 [153]"                       STATUS"
  58. 1570 [153]
  59. 1580 [153]"  @$                   LIST CATALOG"
  60. 1590 [153]
  61. 1600 [153]"  @I                   INITIALIZE/"
  62. 1610 [153]"                       RESET THE DRIVE"
  63. 1620 [153]
  64. 1630 [153]"  @N:DISKNAME,ID       NEW/FORMAT A "
  65. 1640 [153]"                       NEW DISK"
  66. 1650 [153]
  67. 1660 [153]"  @UJ                  RESET DOS"
  68. 1670 [153]
  69. 1680 [153]"  @V                   VALIDATE/"
  70. 1690 [153]"                       COLLECT SPACE"
  71. 1700 [153]" *------------------------------------*"
  72. 1710 :
  73. 1720 [153]
  74. 1730 [139] PS [178] 1 [137] 1770
  75. 1740 [153]" * PRESS ANY KEY TO CONTINUE."
  76. 1750 A$ [178] "": [161] A$: [139] A$ [178] "" [137] 1750
  77. 1760 [153]"LOAD"
  78. 1770 [153]" *------------------------------------*"
  79. 1780 [153]"  DRIVE                COMMAND"
  80. 1790 [153]"  COMMAND              RESULT "
  81. 1800 [153]" *------------------   ---------------*"
  82. 1810 [153]
  83. 1820 [153]"  @#N                  SWITCH DRIVE"
  84. 1830 [153]"                       REFERENCE"
  85. 1840 [153]
  86. 1850 [153]"  FOR EXAMPLE:
  87. 1860 PRINT
  88. 1870 PRINT
  89. 1880 PRINT"  @#9                  SWITCH TO DRIVE"
  90. 1890 PRINT"                       9 FOR ALL"
  91. 1900 PRINT"                       COMMANDS"
  92. 1910 PRINT
  93. 1920 PRINT
  94. 1930 PRINT
  95. 1940 PRINT"  @#8                  SWITCH TO DRIVE"
  96. 1950 PRINT"                       8 FOR ALL"
  97. 1960 PRINT"                       COMMANDS"
  98. 1970 PRINT" *------------------------------------*"
  99. 1980 PRINT
  100. 1990 IF PS = 1 GOTO 2030
  101. 2000 PRINT" * PRESS ANY KEY TO CONTINUE."
  102. 2010 A$ = "": GET A$: IF A$ = "" GOTO 2010
  103. 2020 PRINT"[147]"
  104. 2030 PRINT" *------------------------------------*"
  105. 2040 PRINT"  PROGRAM              COMMAND"
  106. 2050 PRINT"  COMMAND              RESULT "
  107. 2060 PRINT" *------------------   ---------------*"
  108. 2070 PRINT
  109. 2080 PRINT"  /PGMNAME             LOAD BASIC"
  110. 2090 PRINT"                       PROGRAM"
  111. 2100 PRINT
  112. 2110 PRINT"  _PGMNAME             SAVE BASIC"
  113. 2120 PRINT"                       PROGRAM"
  114. 2130 PRINT
  115. 2140 PRINT"  ^PGMNAME             LOAD/RUN BASIC"
  116. 2150 PRINT"                       PROGRAM"
  117. 2160 PRINT
  118. 2170 PRINT"  %PGMNAME             LOAD ML"
  119. 2180 PRINT"                       PROGRAM"
  120. 2190 PRINT
  121. 2200 PRINT
  122. 2210 PRINT" *------------------------------------*"
  123. 2220 PRINT
  124. 2230 IF PS = 1 GOTO 2270
  125. 2240 PRINT" * PRESS ANY KEY TO CONTINUE."
  126. 2250 A$ = "": GET A$: IF A$ = "" GOTO 2250
  127. 2260 PRINT"[147]"
  128. 2270 PRINT" *------------------------------------*"
  129. 2280 PRINT"  WW                   COMMAND"
  130. 2290 PRINT"  COMMAND              RESULT "
  131. 2300 PRINT" *------------------   ---------------*"
  132. 2310 PRINT
  133. 2320 PRINT"  @Q                   QUIT/ REMOVE WW"
  134. 2330 PRINT
  135. 2340 PRINT" *------------------------------------*"
  136. 2350 PRINT"  NOTES:
  137. 2360 [153]
  138. 2370 [153]"   ALL COMMANDS MUST BE FOLLOWED BY"
  139. 2380 [153]"   RETURN KEY.
  140. 2390 PRINT
  141. 2400 PRINT"   OPTIONALLY, THE GREATER THAN SIGN"
  142. 2410 PRINT"   '>' MAY BE USED TO PREFACE ALL"
  143. 2420 PRINT"   COMMANDS."
  144. 2430 PRINT
  145. 2440 PRINT" *------------------------------------*"
  146. 2450 PRINT" *     THAT IS ALL! "
  147. 2460 PRINT" *     PRESS RETURN TO VIEW AGAIN!"
  148. 2470 PRINT" *     PRESS F1 KEY TO PRINT!     "
  149. 2480 PRINT" *     PRESS F3 KEY TO STOP!     "
  150. 2490 PRINT" *------------------------------------*"
  151. 2500 IF PS = 1 THEN PRINT:CLOSE 4
  152. 2510 A$="": GET A$: IF A$ = ""GOTO 2510
  153. 2520 IF A$ = CHR$(133) GOTO 2560
  154. 2530 IF A$ = CHR$(134) THEN END
  155. 2540 PS = 0
  156. 2550 GOTO 1300
  157. 2560 OPEN 4,4 : CMD 4 : PS = 1
  158. 2570 GOTO 1310
  159.